home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_163_Publisher Setup < prev    next >
Text File  |  1998-02-04  |  10KB  |  119 lines
  1. ItemType: WIND
  2. Rect: 257,260,767,507
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Publisher Setup
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬global gWindowPositions¬global gPublisherList¬¬---------------------¬-- This is window #10¬---------------------¬¬if objValue="Open" then ¬  ¬  -- Restore old window position¬  put OldWindowPosition(10) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else wsSet wdID,"0","Rect",windowRect¬  ¬  wsSet wdID,"PublisherList","Text",gPublisherList¬  get "Remove_Disabled:True" & return & "Publisher_Disabled:True" & return & "Copyright_Disabled:True" & return & "NameLabel_Disabled:True" & return & "CopyrightLabel_Disabled:True" & return¬  wsSet wdID,0,"Properties",it¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "10" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 10 of gWindowPositions¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent
  9.  
  10. ItemType: PUSH
  11. Rect: 419,218,499,238
  12. AutoSize: FALSE
  13. Name: Save
  14. AutoClose: TRUE
  15. Balloon: Click here to save your changes.
  16. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gPublisherList¬¬put wsGet(wdID,"PublisherList","Text") into gPublisherList¬repeat with x = the number of lines of gPublisherList down to 1¬  if word 1 of line x of gPublisherList = empty then delete line x of gPublisherList¬end repeat¬if the last char of gPublisherList = return then delete the last char of gPublisherList¬--end mouseUp¬¬¬
  17.  
  18. ItemType: PUSH
  19. Rect: 329,218,409,238
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23. Balloon: Click here to exit without saving your changes.
  24.  
  25. ItemType: BOX
  26. Rect: 297,24,499,206
  27. TextFont: Geneva
  28. TextSize: 9
  29. BlackColor: -26215,-26215,-26215
  30. WhiteColor: -26215,-13108,-1
  31. Fill: White
  32.  
  33. ItemType: LIST
  34. Rect: 11,24,286,206
  35. TextFont: Geneva
  36. TextSize: 9
  37. Name: PublisherList
  38. Style: ListWithTabs...
  39. StyleInfo: .............>
  40. Logic: Drag
  41. Text: Aardvark-Vanaheim    ™ and © Aardvark-Vanaheim Press¬AC    ™ Americomics, © AC Comics¬Adventure    ™ and © Adventure Comics, a division of Malibu Comics Entertainment¬Aircel    ™ and © Aircel, a division of Fantagraphics Books, Inc.¬Antarctic    ™ and © Antarctic Press¬Archie    ™ and © Archie Comic Publications, Inc.¬Atlas    ™ and © Atlas Comics, published by Seaboard Periodicals, Inc.¬Boneyard    ™ and © Boneyard Press¬Caliber    ™ and © the story’s creators¬Charlton    ™ and © Charlton Publications, Inc.¬COMICO    ™ and © COMICO, the Comic Company¬Dark Horse    ™ and © Dark Horse Comics, Inc.¬DC    ™ and © DC Comics, Inc.¬Defiant    ™ and © Defiant, a division of Enlightened Entertainment Partners, L.P.¬Dell    ™ and © Dell Publishing Co.¬Disney    ™ and © Walt Disney Productions¬Eagle    ™ and © Eagle Comics¬E.C.    ™ and © William M. Gaines, Agent¬Eclipse    ™ and © Eclipse Comics¬Epic    ™ and © Epic Comics¬Eros    ™ and © Eros Comics, a division of Fantagraphics Books, Inc.¬Eternity    ™ and © Eternity Comics, a division of Malibu Graphics, Inc.¬Fantagraphics    ™ and © Fantagraphics Books, Inc.¬First    ™ and © First Comics, Inc. and Star*Reach Productions¬Fleetway Quality    ™ and © Fleetway Editions, Ltd.¬Friendly    ™ and © Friendly Comics¬Gold Key    ™ and © Western Publishing Company, Inc.¬Hero    ™ and © Heroic Publishing, Inc.¬Image    ™ and © Image Comics, Inc.¬Impact    ™ and © DC Comics, Inc.¬Innovation    ™ and © The Innovative Corporation¬Kitchen Sink    ™ and © Kitchen Sink Press, Inc.¬London Night    ™ and © London Night Studios¬Malibu    ™ and © Malibu Comics Entertainment, Inc.¬Marvel    ™ and © Marvel Characters, Inc.¬Marvel UK    ™ and © Marvel Comics UK, Ltd.¬Milestone    ™ and © Milestone Entertainment¬Mirage    ™ and © Mirage Publishing, Inc.¬MU    ™ and © MU Press¬NEC    ™ and © NEC Press¬Night Wynd    ™ and © Night Wynd Enterprises¬Now    ™ and © Now Entertainment, Inc.¬Pacific    ™ and © Pacific Comics¬Piranha    ™ and © Piranha Press, an imprint and trademark of DC Comics, Inc.¬Rebel    ™ and © Rebel Studios, Inc.¬Red Circle    ™ and © Red Circle Productions, Inc.¬Revolutionary    ™ and © Infinite One, dba Revolutionary Comics¬Schism    ™ and © Schism Comics¬Sky    ™ and © Sky Comics¬Slave Labor    ™ and © Slave Labor Graphics¬Spire    ™ and © Spire Christian Comics, published by Fleming H. Revell Company¬Star    ™ and © Marvel Entertainment Group¬Topps    ™ and © Topps Comics, a wholly-owned subsidiary of the Topps Company, Inc.¬Valiant    ™ and © Voyager Communications, Inc.¬Vertigo    ™ and © DC Comics, Inc.¬Viz    ™ and © Viz Communications, Inc.¬Warp    ™ and © Warp Graphics, Inc.¬Whitman    ™ and © Western Publishing Company, Inc.
  42. Balloon: This is the list of the publishers you’ve set up, along with each one’s usual copyright notice. The publishers listed here will appear in the Publisher pop-up menu when you modify or create a title.
  43. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"PublisherList","Selection") into PublisherLine¬put wsGet(wdID,"PublisherList","Text") into PublisherList¬put line PublisherLine of PublisherList into theLine¬if word 1 of theLine <> empty then¬  set the itemDelimiter to tab¬  put item 1 of theLine into thePublisherName¬  put item 2 of theLine into theCopyright¬  put "Publisher_Selection:0,100" & return into theSelection¬  ¬  get "Remove_Disabled:False" & return & "Publisher_Disabled:False" & return & "Copyright_Disabled:false" & return & "NameLabel_Disabled:False" & return & "CopyrightLabel_Disabled:False" & return & "Publisher_Text:" & thePublisherName & return & "Copyright_Text:" & theCopyright & return¬else¬  put "Publisher_Selection:0,0" into theSelection¬  get "Publisher_Disabled:True" & return & "Copyright_Disabled:True" & return & "Remove_Disabled:True" & return & "NameLabel_Disabled:True" & return & "CopyrightLabel_Disabled:True" & return & "Publisher_Text:" & return & "Copyright_Text:" & return¬  ¬end if¬wsSet wdID,"0", "Properties", it & theSelection¬--end mouseUp
  44.  
  45. ItemType: TEXT
  46. Rect: 309,44,474,60
  47. TextFont: Geneva
  48. TextSize: 9
  49. Disabled: TRUE
  50. Name: Publisher
  51. LockText: FALSE
  52. Balloon: Enter the publisher’s name here.
  53. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"Publisher","Text") into thePublisher¬put wsGet(wdID,"PublisherList","Selection") into thePublisherLine¬put wsGet(wdID,"Copyright","Text") into theCopyright¬¬if thePublisher <> empty then¬  if theCopyright = empty then put "™ and © " & thePublisher into theCopyright¬  put wsGet(wdID,"PublisherList","Text") into thePublisherList¬  set the itemDelimiter to tab¬  put line thePublisherLine of thePublisherList into theLine¬  put thePublisher & tab & theCopyright into line thePublisherLine of thePublisherList¬  wsSet wdID,"Copyright","Text",theCopyright¬  wsSet wdID,"PublisherList","Text", thePublisherList¬end if¬¬wsSet wdID,"PublisherList","Selection", thePublisherLine¬--end closeField
  54.  
  55. ItemType: TEXT
  56. Rect: 308,84,489,196
  57. TextFont: Geneva
  58. TextSize: 9
  59. Disabled: TRUE
  60. Name: Copyright
  61. LockText: FALSE
  62. Scrolling: TRUE
  63. Balloon: Enter the most common copyright/trademark notice for this publisher here. This will be used as the default copyright when you create a new title by this publisher.
  64. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"PublisherList","Selection") into thePublisherLine¬put wsGet(wdID,"Copyright","Text") into Copyright¬put wsGet(wdID,"PublisherList","Text") into thePublisherList¬¬set the itemDelimiter to tab¬put line thePublisherLine of thePublisherList into theLine¬put (item 1 of theLine) & tab & Copyright into line thePublisherLine of thePublisherList¬wsSet wdID,"PublisherList","Text", thePublisherList¬wsSet wdID,"PublisherList","Selection", thePublisherLine¬--end closeField¬¬
  65.  
  66. ItemType: TEXT
  67. Rect: 310,31,402,43
  68. TextFont: Geneva
  69. TextSize: 9
  70. Disabled: TRUE
  71. Name: NameLabel
  72. WhiteColor: -26215,-13108,-1
  73. TextStyle: Bold
  74. Text: Publisher Name:
  75.  
  76. ItemType: TEXT
  77. Rect: 310,70,443,82
  78. TextFont: Geneva
  79. TextSize: 9
  80. Disabled: TRUE
  81. Name: CopyrightLabel
  82. WhiteColor: -26215,-13108,-1
  83. TextStyle: Bold
  84. Text: Usual Copyright Notice:
  85.  
  86. ItemType: PUSH
  87. Rect: 102,218,182,238
  88. Name: New   N
  89. Balloon: Click here to add a new publisher to the list.
  90. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"PublisherList","Text") into theList¬¬if char 1 of theList <> tab then put tab & return before theList¬wsSet wdID,"PublisherList","Text",theList¬get  "PublisherList_Selection:1" & return & "Publisher_Text:" & return & "Copyright_Text:" & return & "Publisher_Selection:0,0" & return & "Publisher_Disabled:False" & return & "Copyright_Disabled:False" & return & "CopyrightLabel_Disabled:False" & return & "NameLabel_Disabled:False" & return¬wsSet wdID,"0", "Properties", it¬--end mouseUp
  91.  
  92. ItemType: PUSH
  93. Rect: 11,218,91,238
  94. Disabled: TRUE
  95. Name: Remove
  96. Balloon: Click here to remove the selected publisher from the list.
  97. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"PublisherList","Selection") into theLine¬put wsGet(wdID,"PublisherList","Text") into theList¬delete line theLine of theList¬¬wsSet wdID,"PublisherList","Text",theList¬¬set the itemDelimiter to tab¬put item 1 of line theLine of theList into thePublisher¬put item 2 of line theLine of theList into Copyright¬get "PublisherList_Selection:" & theLine & return & "Publisher_Text:" & thePublisher & return & "Copyright_Text:" & Copyright & return ¬¬if word 1 of line theLine of theList = empty then¬  put "Remove_Disabled:True" & return  & "NameLabel_Disabled:True" & return & "CopyrightLabel_Disabled:True" & return & "Publisher_Disabled:True" & return & "Copyright_Disabled:True" & return after it¬else¬  put "Remove_Disabled:False" & return & "Publisher_Selection:0,100" & return after it¬end if¬¬wsSet wdID,"0", "Properties", it¬--end mouseUp¬
  98.  
  99. ItemType: TEXT
  100. Rect: 12,10,67,22
  101. TextFont: Geneva
  102. TextSize: 9
  103. Name: 
  104. WhiteColor: -8739,-8739,-8739
  105. TextStyle: Bold
  106. Text: Publisher
  107.  
  108. ItemType: TEXT
  109. Rect: 124,10,181,22
  110. TextFont: Geneva
  111. TextSize: 9
  112. Name: 
  113. WhiteColor: -8739,-8739,-8739
  114. TextStyle: Bold
  115. Text: Copyright
  116.  
  117. ItemType: BOX
  118. Rect: 298,25,499,207
  119. Pen: White